home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
business
/
cntws11a.zip
/
GLJNLTMP.MDX
(
.txt
)
< prev
next >
Wrap
dBASE Multiple Index
|
1997-05-19
|
10KB
|
70 lines
GLJNLTMP
jctrans
set relation to sub_code into creditor, stock_code into stmaster, job_code into jobs, prod_code into saleprod
sele jobs
set relation to stock_code into tempstck
froom = ""
toooo = ""
do wiprange
sele jctrans
set filter to jctrans->job_code => froom .and. jctrans->job_code =< toooo
reference = "REFERENCE"
dateword = "DATE"
do prtbtch with "[ Detailed Work In Progress Schedule ]","wip"
*report form wip_sum &&to print noeject
use in
ACT_CODE
SUB_CODE
FIRST_REF
------------------------------------------------------
* NAME
* ONCLICK - Event handler for DBMITEM2
*-----------------------------------------------------------------
* do wip_reps
saf = set('safety')
set safety off
sele jobs
set order to job_code
sele creditor
set order to sub_code
sele stmaster
set order to stock_code
copy with production to tempstck field stock_code,descriptio
use tempstck in sele() order stock_code
sele saleprod
set order to prod_code
use jctrans in sele() order job_trans
sele jctrans
set relation to sub_code into creditor, stock_code into stmaster, job_code into jobs, prod_code into saleprod
sele jobs
set relation to stock_code into tempstck
froom = ""
toooo = ""
do wiprange
sele jctrans
set filter to jctrans->job_code => froom .and. jctrans->job_code =< toooo
reference = "REFERENCE"
dateword = "DATE"
do prtbtch with "[ Summary Work In Progress Schedule ]","wip_sum"
*report form wip_sum &&to print noeject
use in jctrans
use in tempstck
erase "tempstck.dbf"
erase "tempstck.mdx"
set safety &saf.
RETURN
PROCEDURE dtcomp && DBMITEM1.ONCLICK
*-----------------------------------------------------------------
* NAME
* ONCLICK - Event handler for DBMITEM1
*-----------------------------------------------------------------
saf = set('safety')
set safety off
use compjo
ACT_CODE
ACT_CODE
SUB_CODE
SUB_CODE
FIRST_REF
FIRST_REF